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EDITORIAL 
by Terry Laudereau 



At last we make it to press with issue #2, thanks to all of 
you^who contributed information. We’re especially grateful 
to Ginc J Piazza (see his letter or. page 5), who sent in al¬ 
most all the vendor information we’ve printed here. Unfor¬ 
tunately, in order to make everything fit in the issue, we 
had to split Giro’s information into several pieces. But we 
figure he deserves more than iust honorable mention! Ginc 
has, in general, been a great help to us. Thanks. 

On another front, we have conflicting stories about the user 
group from Computer Mart of Waltham. First we hear that Bruce 
McGlothlin is working on the Monitor (their newsletter) and 
then that he’s no longer with the store. As of this printing, 
we haven’t had any luck reaching anyone there to give us the 
true story,,, maybe by next issue we’ll know more. 
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LETTERS' 


Dear Rick & Terry - 

I recently purchased a Sorcerer, and I'm quite happy with it. However, 
I have a problem or two I'd like some help with. 

The Sorcerer produces interference with local TV reception. This is 
not peculiar to my machine, as I have a friend who has the same prob¬ 
lem with her Sorcerer. Since this is likely to get Exidy into trouble 
with the FCC, I'm sure there must be a way of correcting it - but what 
is it? Second, I can't use string arrays of more than 66 characters. 
Despite CLEAR 255, and a response to FRE(X$) of 255, entering more than 
66 characters in a string locks up my computer completely. This is 
true even if I try to get back the string using the string modifier 
functions. Is there anything I can do about this? Third, I want to use 
the Sorcerer as a dumb terminal. I am communicating with a large com¬ 
puter that has a 72 character line default. Do you know of a patch 
that will enable the Sorcerer to fold over to the next line when it 
is receiving? I'd also like to hook in a bell to warn me when I'm 
approaching the end of a 64 character line. Any suggestions? And, 
finally, I've discovered that Sorcerer owners who try to use the func¬ 
tion USR(X) listed in the BASIC Manual may have difficulty. In the 
technical manual, Exidy explains the addresses that must be entered 
with POKE statements before the USR function will work. - Leslie Zatz 


NEWSLETTERS & USER GROUPS 

The Exidy Monitor, a newsletter sponsored by the Computer Mart of 
Massachusetts, is directed towards those of you who are more exper¬ 
ienced in the art of computings While the Source directs its at¬ 
tention to the beginner, the Monitor is dedicated to the "hacker" 

- and contains a lot of good information. Contact Bruce McGlothlin, 
Coordinator, at 1395 Main Street Waltham MA. 02154 for information 
on supscription prices and ordering. If you really want to dig 
into the innards of your machine, the Exidy Monitor is for you. 

S.P.E.C. is a newsletter out of the UK - and it seems to be as 
beginner-oriented as the Source. We got a lot of neat tid-bits of 
information from the first issue we received, and suggest that you 
might find it valuable as well. Write to G F Counsell and M P 
Hannaby, 65 Trafalgar Road, Birkdale, Sourhport, Merseyside, England, 
PR8 2NJ for subscription price and ordering info. 


NEW PRODUCTS 

Vic Tolomei, 1203 N Myers St, Burbank, CA 91506, offers a full 
Z80 disassembler, a complete graphics plotting package, and a 
challenging Maze program. Write to Vic for ordering and delivery 
information - his literature is tantalizing! 













LETTERS 
Dear Rick and Terry - 

I've tried to use the CSAVE* function to record data, "but it 
just won't work reliably for me. Any suggestions? According 
to the dealer, there's a glitch in the software that was supposed 
to be fixed (that was three months ago, and no word from Exidy 
. so far!). I have to put all my data into DATA statements, and 
that’s a nuisanceo If I had some way to link programs - that is, 
join two pieces of programs together - it would be a big helpo 
I've had two problems with the Sorcerer...one was solved by the 
dealer (a new regulator) and the other was apparently due to 
overheating. I.cured it myself by moving a power resistor over 
to the edge of the chassis. I have the Hitachi monitor with the 
Pickles & Trout conversion, which I did myself - nice! I can 
get music while I use the Hitachi as a video monitor. What is 
the TAB/SKIP key for? - W F Corse 

(We've asked the same question! Will let you know ASAP. - T & R) 
Terry & Rick - 

I'm enclosing a copy of a program I wrote to locate the values 
for specific keys to develop graphics characters in BASIC with 
POKE statements.oo.it should be useful to Sorcerer owners. I'd 
like to see an unclassified ad section added to the SOURCE so 
readers could swap Exidy related ideas and equipment among each 
other. And could you publish a disassembled version of the 
monitor and BASIC interpreter? I've tried in vain (as I'm sure 
other users have) to understand the machine language subroutines, 
and sure wish I had the mnemonics in front of me! - Brian McDonald 

(We'll check with Exidy....here's a listing of your program - T & R) 


UTIL1 - by Brian McDonald 

LIST 

10 PRINT TAB(10) "UTILITY PROGRAM BY BRIAN MacDONALD” 

20 PRINT*PRINT*PRINT*PRINT'THIS PROGRAM GIVES YOU THE NUMBERS IN 
BASIC" 

30 PRINT"FOR EACH KEY TO CREATE GRAPHICS CHARACTERS" 

40 PRINT*PRINT;PRINT*PRINT"- 

it 

100 V=-512 

110 PRINT"POKE VALUES FOR GRAPHIC-SHIFT KEYS" 

IIS PRINT*PRINT 
120 FOR 1*1 TO 64 
130 GOSUB 600 
140 NEXT I 

150 PRINT*PRINT*PRINT 

160 PRINT"POKE VALUES FOR GRAPHIC-ONLY KEYS" 

165 PRINT*PRINT 
170 RESTORE 
1B0 Z=-1024 


k 









190 FOR 1*1 TO 64 
200 GOSUB 500 
210 NEXT I 
400 END 

500 READ SPRINT Ntf" "f 

510 FOR M*1 TO 8 

520 PRINT Zl 

530 Z*Z + 1 

540 NEXT M 

550 PRINTS PRINT 

560 RETURN 

600 READ N$sPRINT N*>" 

610 FOR Q»i TO 8 
620 PRINT VJ 
630 0*V+1 
640 NEXT Q 
650 PRINTS PRINT 
660 RETURN 

700 DATA l»2»3»4»5*6»7»8>9»0**»->*» TAB# Qt W 
710 DATA E»RsT»Y#U# I»0»P# C t 3>A»S#D>F»G»H 
720 DATA J#K>L»+>'#\>-*Z*X>C»V#B*N>M »<* > 
730 DATA ?,-# 7»8#9,9,/,4»6/*# l»2»3»+>0» . » = 
READY 


Dear Rick & Terry - 

In an article I wrote for the SOURCE (see it later in this issue) 

I mentioned how the Sorcerer goes under two names. I recently 
wrote to PSC and asked why their version goes under the name of 
PS-80, and I got this reply: "In reference to your inquiry about 
our PS-80 label; we are distributing our products exclusively 
through independent consultants, which requires a separate identity 
from our manufacturer, EXIDY Inc. We carry almost all of EXIDY's 
products as well as the products from a number of peripheral manu¬ 
facturers. This allows us to offer a wide choice to our consul¬ 
tants to cover varied needs. Sincerely yours, Mike Flynn, Manager". 
Just wanted to share this info with other SOURCE readers who might 
find it interesting. - Gino J Piazza 

Dear Rick & Terry - 

Don Roberts' PLANE program was very interesting and amusing, but 
required considerable time to enter into my computer. It would 
be nice to exchange tapes with either ARESCO or the author...Even 
the SOURCE (at a later date) could be on tape or disk! Keeping us 
up to date with accessories for the Sorcerer would be helpful - 
possibly product testing? A hot-line to EXIDY would be useful (es¬ 
pecially an 800 number). - Edward Brzezowski 

Dear Rick & Terry - 

Just for the fun of it, try this (I call it "Ants in Sugar"); 

10 FOR 1=1 TO 1920 40 I=RND(1)*512 

20 PRINT CHR$(RND(1)*64+192); 50 POKE -512+1,RND(l)*256 

30 NEXT I 60 GOTO 40 

70 END 


- Tom Harper 




BLINK'IT 
by Donald Depres 


Something flashing on the computer screen is definitely 
more eye-catching than a static message (Translation: 
plain old one-shot PRINT execution). I do the usual 
error check in my programs to see if the user is giving 
a valid response. 

If the user gives something wrong, just cycling back to re¬ 
peat the INPUT message & prompt ain't (sic) good enough for 
me. 

I want something to .(.(PLASH).), back at the operator to 
really get attention. So I do a routine called BLINK 'ERROR' 
MESSAGE. 

It's neat to watch the error message flashing (I often give 
wrong responses intentionally - - the blinking fascinates me). 


* * 


230 PRINT: PRINT: PRINT 

240 INPUT " GIVE ME A VALUE FOR R"; R 

250 IP R<1 OR R>10 THEN 900: REM...ERROR... 

* * * 


880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 


END 

REM --BLINK ERROR MSG 

Print chr$( 23 ); tab(64); chr$( 23 ) 

FOR BLI NK=1 TO 3 

: PRINT " ...ERROR..." 

: FOR J=0 TO 300: NEXT: REM...DELAY BLINK 'ON'... 

: PRINT CHR$(23); TAB(64); CHR$(23) 

: FOR J=1 TO 200: NEXT: REM...DELAY BLINK 'OFF'... 

NEXT BLINK 

• 

PRINT CHR$ (23): PRINT TAB(64 )5 CHR$(23) 

PRINT " NUMBERS 1-10 ONLY, REMEMBER ?" 

FOR J=1 TO 1500: NEXT 

PRINT CHR$(23)j TAB(64)j CHR$(23) 

GOTO 240: REM...REPEAT INPUT PROMPT AGAIN... 


# 


CHR$(23) 
TAB(64) 


moves cursor to beginning of current line 


erases' current line with all spaces 
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When you want to keep the rest of the screen undistruhed, 
the semicolon (;) structure in lines 910 . 960 & 1000 keep 
everything happening on the same line. Experiment with the 
semicolon and see what happens -- drop some, add one after 
the 2nd "CHR$(23)", etc. 

Experiment with defferent 'ON' & 'OFF' delay values for J 
in lines 940 , 970 , & 1020 . I like my 'OFF' a bit shorter 
than the 'ON'. Try different J values, reverse the ratios, 
or make 'ON 0 & 'OFF' times equal to suit your taste. 

You can do a lot more than just the ERROR message, too. 

You can... 

--blink a request for s command (INPUT) from a menu 
--blink a .(.(RED ALERT).), status in a Star Trek game 
--use it as a positive reinforcement (reward) in teach¬ 
ing programs. 

e.g. flash .(.(VERY GOOD).), for a student's right 
answer 

Now it's your turn* Can you improve it? I'm not satisfied 
with just a finite number of blinks (BLINK=1 TO X). An INPUT 
statement puts the digital brakes on and brings the program 
to a screeching halt. 

Anybody out there know how 
to keep the message blink¬ 
ing indefinitely till the 
user repeats the INPUT? 

Is there a way to keep 
executing the blink routine 
while checking for new key¬ 
board INPUT? (Input & Out¬ 
put ports??) 


Simplexity Software Systems 
is offering a free catalog 
of small business, home, & 
educational software for the 
Sorcerer. Write to SSS at 
P 0 Box 501, Hiram OH 44234 


Another company offering soft 
ware for the Sorcerer is 
BASICALLY SPEAKING. Write 
for infor to 719 Anna Lee 
Lane, Bloomington IN 47101 0 


Sorcerer User Groups should 
send their names, addresses, 
and contact person's names 
to the SOURCE for listing in 
this newsletter* 



Talked about at NCC '79, the Cover Feature 
of the August '79 CREATIVE COMPUTING, 
highly rated by COMPUTER CASSETTE Mag¬ 
azine and others, ADVENTURE by Scott 
Adams has rapidly become a classic, each 
ADVENTURE isa 16K machine language pro¬ 
gram designed for you, the Armchair Adven¬ 
turer! See for yourself what everyone is talk¬ 
ing about and order a copy of Adventure # 1 
or #2 today from our many fine dealers or 
order directly from: 

ADVENTURE INTERNATIONAL 
Box 3435, Dept. X 
Longwood, Florida 32750 
(305) 862-6917 

Each Adventure, only $14.95, Visa and Mas- 
tercharge accepted. Send For Free Flyer 
Dealer Inquiries Encouraged 
Available for: 16K TRS-80, 16K SORCERER, 
_24K PET (Basic Version Only) 
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DIRECT CURSOR ADDRESSING 

and 

INVERSE VIDEO CHARACTERS 
by H Joseph Turner 


10 REM DIRECT CURSOR ADDRESSING routine 
20 REM 

30 REM by Joe Turner 5-22-79 
40 REM 

50 REM Computer Systems Center 

60 REM 13461 Olive Blvd. 

70 REM Chesterfield, MO 63017 

80 REM (314) 576-5020 

90 REM 

100 REM Calculate storage locations: 

110 REM 

120 MT=PEEK(-4095) : REM MS byte of top of RAM 

130 VL=MT*256+249 : REM storage for vertical (LS byte) 

140 VH=VL+1 : REM " " " (MS byte) 

150 HL=VH+1 : REM " " horizontal 

160 REM 

170 SC$=CHR$(17)+CHR$(23) : REM suppress cursor command 
180 REM 


horizontal position (0-63) 
vertical position (0-29) 


190 REM 

200 H=32 : REM 
210 V=15 : REM 
220 REM 

230 GOSUB 9000 
240 REM 

250 PRINT "TEST" 

260 REM 

8999 END 

9000 PRINT SC$; : REM 

9010 IF H<0 OR H>63 THEN 9040 : 
9020 POKE HL,H : REM 
9030 REM 

9040 IF V<0 OR V>29 
9050 VE=INT(V)*64 : 

9060 HI=INT(VE/256) 

9070 L0=VEM1I*256 : 

9080 POKE VH,HI : REM 
9090 POKE VL,LO : REM 
9100 REM 
9110 RETURN 
READY 


REM 


THEN 9110 : REM 
REM 
: REM 
REM 


kill cursor 
range filter 
set horiz. pointer 

range filter 

calc. vert, pointer 

get MS byte 

get LS byte 

set vert, pointer 
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1000 REM 
1010 REM 
1020 REM 
1030 REM 
1040 REM 
1050 REM 
1060 REM 
1070 REM 
1080 REM 
1090 REM 
1100 REM 
1110 REM 
1120 REM 
1130 REM 
1140 REM 
1150 REM 
1160 REM 
1170 REM 
1180 REM 
1190 REM 
1200 REM 
1210 REM 
1220 REM 
1230 REM 
1240 REM 
1250 REM 
1260 REM 
1270 REM 
1280 REM 
1290 REM 
1300 REM 
1310 FOR CH=32 TO 126 
1320 READ WB 
1330 FOR R=0 TO 7 

WB*8 + R - 1024 , 255 - PEEK( CH*8 + R - 2048 ) 

R 

CH 
13 

64,65,66,67,68,69,70,71,72 
74,99,46,11,47,48 
9,0,1,2,3,4,5,6,7,8 
10,35,110,75,111,112,36 
90,107,105,92,80,93,94,95,85,96,97,98,109 
108,86,87,78,81,91,82,84,106,79,104,83,103 
24,37,25,12,38,100 

26,43,41,28,16,29,30,31,21,32,33,34,45 
44,22,23,14,17,27,18,20,42,15,40,19,39 
88,101,89,76 


Some of the characters produced by this 
program overwrite the pre-defined graphics 
characters. This means that if you hit 
'CLEAR' or send a form-feed character 
to the display, you will need to re-run 
this program to get the inverse-video 
characters back. 
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1340 POKE 
1350 NEXT 
1360 NEXT 
1370 REM 
1380 DATA 
1390 DATA 
1400 DATA 
1410 DATA 
1420 DATA 
1430 DATA 
1440 DATA 
1450 DATA 
1460 DATA 
1470 DATA 
1480 DATA 
1490 REM 
1500 REM 
1510 REM 
1520 REM 
1530 REM 
1540 REM 
1550 REM 
1560 REM 
1570 REM 
READY 


INVRS 

utility program to allow use of 
inverse (black on white) video 
characters on the Sorcerer. 


by Joe Turner 5-23-79 

Computer Systems Center 
13461 Olive Blvd. 

Chesterfield, MO 63017 
(314) 576-5020 

II II 

II II 

The inverse-video characters produced 
by this program are really graphics 
symbols, and must therefore be used 
in strings and print statements, and 
not as command words or statements in 
BASIC or other languages. 

Use the 'TAB* key for spaces, as the 
space bar does not generate graphics 
characters. 



From S.P.E.C., we receive the following informations 

? CHR$(12) to CLEAR SCREEN 
? CHR$(17) HOME CURSOR 
? CHR$(13) CARRIAGE RETURN 
? CHR$(1) CURSOR LEFT 

? CHR$(19) CURSOR RIGHT 

? CHRf(lO) CURSOR DOWN 

? CHR$(23) CURSOR UP 

SHIFT GRAPHIC 1 STR$ 

2 VAL 

3 ASC 

4 CHR$ 

5 LEFT$ 

6 RIGHT$ 

7 MID$ 

It may he easier to copy listings if you reduce the print speed: 

BYE 

SE S=FF 
PP 

Then return to normal printing speed with SE S=0 

To print information which is normally displayed on the screen to 
a Centronics printer (using a BASIC PRINT statement), POKE 32720,147. 
To return to normal operation, POKE 32720,240. 

You can simulate the BASIC "GET"Command via USR with the following 
codes 

BYE 

EN 0000 

CD 18 EO CA 00 00 32 OA 00 09- 

Depression of a key gives the ASCII code in PEEK(IO) before the 
user statement POKE 2.60,OOsPOKE26l ,00. This routine waits for a 
key to be depressed before going on with the program. 

The following code does not wait for a key to be depressed, and 
therefore might be more useful in arcade-type games. The ASCII 
code is in PEEK (7): 

BYE 

EN 0000 

CD 18 EO 32 07 00 C9 

By using A=USR(0)s? CHR$(12), the screen will flash white if you've 
entered this little routine: 

BYE 

EN 0000 

21 80 FO 01 00 09 3E CO 77 23 OB 3E 00 80 C2 06 00 C9 

S.P.E.C. also offers about two dozen programs, but we weren't 
given any information on how to order them or what the prices 
are. The implication is that the programs are exchanged between 
members of the Sorcerer Users Club in the UK, but I'm sure that 
we can get them here in the US if we're willing to pay the costs. 

On the next page is a copy of their program list - if enough of 
you are interested obtaining the programs, perhaps we can arrange 
to buy the tapes through the SOURCE and offset some of the costs. 
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S.P.E.C. BULLETIN June 1979 


NAME 


DESCRIPTION 


* 


GAMES 

Fight 

Mine 


■ 35 - 


Shoot down the alien space craft 
Pick your way through a deadly 
minefield 

Try your hand at landing the LEM 
Gives you 18 holes of golf 
Rule your own kingdom - beware 
of rebellious serfs! 

Plays a fair game of checkers 
A reasonably good game 
Provides AND cracks codes 
Try to survive on Zombie Island 
Play Luke Skywalker & destroy 
the Death Star 

Fight the Klingons in Galactic 
Space 

Play the market 
Fire a field gun to knock out 
the enemy 

Rectangles/Triangles 

And Squares Produces video-wallpaper 

SCIENTIFIC 

Cartesian Graph Plots curves on Cartesian Axes 
Polar Graph Plots curves on polar axes 
Fourrier Analysis-Synthesizes curves using SIN/ 

COS 

Plot Plots co-ordinates on Cartesian 


Lunar 

Golf 

King 

Draughts 
Othello 
Master Mind 
Zombie 
Death Star 

Star Trek 

Stock Market 
Gunner 


EDUCATIONAL 
Q & A 


Test Grader 
Improve Typing 

f BUSINESS 
Mortgage 
Bank Statement 

^GENERAL 

Character 

Calendar 


axes 

Develops an identification net¬ 
work of questions for dif¬ 
ferent animals 
Marks tests 
Improves typing speed 

Calculates mortgage repayments 
Checks cheque stubs against 
balance 

Helps define Sorcerer graphics 
Displays days and dates 


AUTHOR 


J Clegg 
C Morle 


GFC/MPH 

If 

it 

II 

J A Fisher 

ft 

E Botterill 

II 

F Bamforth 
GFC/MPH 

II 

T Marsland 
D P Oulton 

GFC/MPH 
E Botterill 

II 

E Botterill 


H W Young 
E Botterill 


There are many more programs in the works, and we should get 
an update in the next S.P.E.C. Bulletin. Again, if we ask for 
these programs as a group, we'll offset some of the shipping 
and customs costs. If we "import" one of each tape, then make 
copies here at ARESCO, we can amoritize the costs over several 
purchasers, thus keeping each person's cost minimal. If you're 
interested, let us know. 


NEW CONSUMER COMPUTER INFORMATION SERVICE ANNOUNCED 

Computer customers from San Diego to Santa Barbara, California 
may dial a toll-free number and reach the Consumer Computer In¬ 
formation Service, newly implemented by the Souther California 
Computer Dealler Association (SCCDA). The friendly voice ans¬ 
wering the phone is not a computer, and it will ask the caller 
his city, then give the names, addresses, and phone numbers of 
the three nearest computer stores. The number to call is 800 
432-7257 - extension 815 * 

The SCCDA was formed in September, 1977» and currently has 30 
members. Computer dealers in the region can contact SCCDA thru 
Carl Burlin, president, at (714) 524-5380, or Glen Dollar, the 
treasurer, at (21 3 ) 360 - 2171 , or by writing to SCCDA at IO 723 
White Oak, Granada Hills, CA 91344 


Terry - After that pleasant phone conversation on Wednesday, I 
thought I should write and get down some input. The Sorcerer 
is a true hobby-type computer as it stands now. It has a few 
drawbacks that can be annoying; 

1. No line renumbering or character deletion 

2. Unable to store data or strings on another cassette 

3* Standard BASIC is too minimal. 

I also had hardware problems when I got the unit. After two 
hours, when it got real hot, .it wouldn't work with any PRINT 
CHR$ statements. It would print strange graphics. I solved it 
by installing a mini-box fan for better cooling. The shift- 
lock key worked intermittantly - I fixed that. My kids would 
leave the machine running all night, and no one would know it 
was on unless the monitor was turned on. Solution: I installed 
two LED indicator lamps. I've ordered the technical and soft¬ 
ware manuals from Exidy, mainly because I want to do some ML 
programming and understand more about the language. The develop¬ 
ment and word processing pac are coming alsoo I was able to 
get a complete schematic of the Sorcerer and a prototype copy 
of the tech manual. I've written some software and have copied 
a lot more. The only software I purchased was Creative Com¬ 
puting and G-2. G-2 isn't very good; no real graphics, a few 

bugs. CC was really good - the best graphics I've seen, and 
real fun and games. 

I've started to fool around with PEEK, POKE, and USR, and I'd 
like to know what anyone else is doing - especially in the way 
of setting up machine language calls. Anyone wanting software 
can write to me. I'll send a list if they send a SASE. I'll 
even copy the software for them FREE - if they send me a blank 
cassette and a stamped mailer. Or, since I don't have a printer 
yet, I'll trade a good program for a printer copy of one of my 
poor programs so I can sit down and debug it. By the way - 
Bruce McGlothlin is no longer with Computer Mart of Waltham. 

And - I have two machines. I'll sell the 8 K version for $725* 

- Jack MacGrath, P 0 Box 5» Billerica MA 01821 


12 





































































































































































inc. 


FOR IMMEDIATE RELEASE: 


EXIDY TO SPONSOR SOFTWARE CONTEST 


mw 

Exidy, Inc., the makers of the Sorcerer microcomputer, will 
sponsor a contest for microcomputer programs this summer. Four Sorcerer 
computers will be awarded as grand prizes. 

The purpose of the contest is to encourage people who have written 
good programs to share their programs with other computer owners. Exidy 
will publish a book of the best programs entered in the contest. 

The contest is open to all Basic Language computer programs which 
will run on the Sorcerer. This is probably quite a large pool of programs, 
since the Sorcerer’s Standard Basic is compatible with 4K and 8K versions 
of Altair Basic which have been in use since the early days of microcomputing. 

Prizes of free computers will be awarded to the program judged best 
in each of four categories: Business, Education, Fun & Games and Home/Personal 
Management. Every entrant will be rewarded with a free poster and prof¬ 
essionally-written program in trade for the program they submit. 

The contest will run from June 1 through August 31, 1979. Advertising 
in many microcomputer magazines will carry details. 


FOR FURTHER INFORMATION CONTACT: 



Mr. Paul Terrell 
Marketing Communications 
Exidy Inc. 

969 W. Maude Avenue 
Sunnyvale, California 94086 
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NEW PRODUCT ANNOUNCEMENT, 

Creative Discount Software has announced, the opening of a new 
SOFTWARE OF THE MONTH CLUB, a natural extension of the firm’s 
other large volume software distribution programs. The new 
Software Club will have a separate branch for each of the per¬ 
sonal computers, and members will select Division memberships 
within their selected branch. Such divisions as Business, Edu¬ 
cation, High-level Languages, Games and Fun, and Personal & 

Home Management applications will comprise the divisions. 

The Software Club will utilize the negative option sales program 
used currently by book and record clubs, and will capitalize on 
volume purchasing power to offer favorable prices to members. 
Since Creative Discount Software is a distributorship rather than 
a producer of software, it can select the best programs available 
for Software Club members. 

Membership enrollment applications are available from Creative 
Discount Software, Software Of The Month Club, P 0 Box 24-B-67 
Los Angeles, CA, 90024 


CP/M Users will be interested in a keyed file management system 
called MAGSAM™, designed by Micro Applications Group of 73°0 
Caldus Avenue, Van Nuys, CA 91406. MAGSAM enables users of CP/M 
and CBASIC to create and access data records quickly and directly, 
using user-defined keys. Records may be retrieved randomly or 
sequentially or generically; chronologically or by record number - 
all by selecting the correct key field. Records may be created 
randomly or sequentially by key, and updated by any of the re¬ 
trieval methods. Optional features include support for multiple 
data paths through the use of multiple keys and secondary indexes, 
and real-time record and key delete capability with automatic re¬ 
clamation of free space. 

According to the literature provided, there are three versions of 
MAGSAM: Version I is the entry level version and supports single 

key file structures with deletes performed by file reorganization; 
MAGSAM II is a single key implementation with full delete support; 
and MAGSAM III is the most advanced version, supporting multiple 
keys, secondary indexing, and full delete capability. 

MAGSAM runs as a subroutine to CBASIC programs, and requires 6 k of 
memory, over and above that occupied by the operating system and the 
calling program. 

All three versions of MAGSAM are available on standard 8" Micropolis 
diskettes in source form. Prices run from $75 for version I to $145 
for version III. The user guide is available separately for $15* 
Write for ordering and delivery information to Micro Applications 
Group, 73 00 Caldus Avenue, Van Nuys CA 91406 
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MAGAZINE PROGRAMS BOMB 
by John T Hill 


Are you like me? Do you buy magazines about computers? 

Find a good program, start typing, and then find out it won't 
work? Here's a list of some of the problems I've encountered. 


1 . 


Magazine: 

Programs 

Problem: 


BYTE, July, 1979 
Quest 

Syntax error in the listing at line 6210 
6210 IF D<> 7^ THEN PRINT' DEBUG';N;'T0;I 

(apostrophes instead of quotes; missing any 
punctuation after word TO) 


2. Magazine s 
Program: 
Problem: 


ON COMPUTING, Summer, 1979 

Checkbook Balancing in BASIC 

Seven errors in code for the Sorcerer. For 

example, line 255 says IF...THEN...ELSE - and 

it doesn't work. 


3 . Magazine: 
Program: 
Problem: 


CREATIVE COMPUTING, Jan/Feb, 1977 
Drag 

Line 20 has brackets instead of parentheses in 
a DIM statement. In line 480 Ql=Q2=j# - and 
the machine does not see the zero. 


These are just a few of many programs that I've started and 
couldn't get running - couldn't even get help. They just wait 
to be fixed. Finally, I got tired of typing the programs in, 
so I bought a program ("Map") for $9*95 from Public Computing, 
Inc. The program had two errors in it. I asked the store for 
help, and was told to write to the manufacturer. 


On top of all that, I get pressure from my wife, who wants to 
know why I don't have a checkbook balancing program! 


I enjoy my copies of the Sorcerer's SOURCE - at least I can 
type in and run the programs. Maybe if we Sorcerer owners 
could write to SOURCE about our problems (like the 480 Ql=Q2=J2f 
problem), someone else could write in with the answer: That 
two lines are needed; 480 Q1=0 and 482 Q2=Q1. 

The Sorcerer is a new computer, and I'm afraid its growth will 
be stunted if we don't get a good support group going. We all 
need a place to write for help, and the SOURCE is the best bet 
going. 


Creative Computing is seeking programmers to produce specific 
programs that meet their specs, on a part time basis. Should 
have a disk system, accept payment by the jobs completed. 

Send three sample programs (CC will keep them) to show what 
you can do to Creative Computing, P 0 Box 789 -M, Morristown, 
NJ 07960 
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USER'S GROUP 


Gaueus is a monthly cassette tape with at least ten programs 
each with such topics as: Home Economics-Business-Trivia- 
Games-Language Computer)- also programs in Math, Physics, 
Geography, Chemistry, Recipes, Nutrition, Speed Reading, 

Buzz Phase Generator, and much more. The back of the cassette, 
besides having recipes, tables or charts, will also have 
short stories and editorials with speed control so you can 
train speed reading. The introductory price is per 

year. Write to Gaudeus, Box 113» Ozone Park, NY, 11417 


Creative Computing is seeking proggrammers to produce spe¬ 
cific programs that meet their specifications. The jobs 
are part time. Preferable a disk system is desired. Pay¬ 
ment is negotiated by the job. Applicants for this type of 
work should send along three sample programs that they have 
written (which will be kept by them). For information 
write to Career Opportunities, Creative Computing, P.0. 

Box 789 -M, Morristown, NJ, 07960 . 


CRC 

by John T. Hill 

Does C.R.C. error cause you to blow your stack? Well all 
is not lost. Here is a trick I use to save most of the 
program., When the work "loading" shows up on the screen, 

I count the seconds. 

Here's how I count, one one thousand, two one thousand, and 
so on, until the CRC error shows up on the screen. 

Write down how long it took for CRC to show up. Rewind 
tape and start over, count the seconds after the word "load¬ 
ing" shows up on the screen then just before and as close 
as possible to the time counted, press "CTRL" key with "C" 
key° You will see on the screen " ", type PP then you will, 
see "Ready " show up. Type "List" and you will see most of 
your program. 


SOFTWARE VENDORS 

Public Computing, Inc., offers six cassette programs using 
the Sorcerer's graphics capabilities. 

Programs available are: Blackjack; Biorhythm; Sub/Ship 
Chase Compucards; Atom; and Map. 

These programs are available at $9*95 each or $19*95 for a 
set of three. For information write to: Public Computing, 
Incorporated, #10 North Earl Avenue, Lafayette, IN, 47904. 
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HEALTH CARE SYSTEMS MANAGEMENT SERVICES 
by Tom H. Swalenberg 

I am writing to request everyone's assistance in a dual ob¬ 
jective project I am undertaking. 

My project is to establish correspondence communications 
with individuals and/or firms involved in or interested in 
development of microcomputer applications for various areas 
of the health care industry. These people as a group I 
will refer to as "health care microcomputer entrepreneurs', 
which describes my own area of microcomputer endeavors. 
Second, I would like to arrange to meet with any of these 
people, as individuals and/or as a group, who are planning 
to attend 'Personal Computing 79' in Philidelphia Oct. 

5» 6, 7, 1979$ as announced in the July 79 issue of Inter¬ 
face Age magazine. 

I would like to recieve letters concerning the interests of 
anyone who is interested in participating in either or both 
of these communications efforts. These "health care micro¬ 
computer entrepreneurs" might be persons with or without 
microcomputer experience and with or without some backgroud 
experience in the health care field. They may be hard¬ 
ware, software, or idea oriented persons and they may or 
may not be health care professionals such as doctors, nurses, 
business, and personnel specialists. Also, their particu¬ 
lar microcomputer and computer programming media is not, at 
this point at least, important. 

I have some ideas about approaching this area of endeavor 
that may be mutually interesting and profitable to anyone 
interested in this area of microcomputer applications 
development. 

Since October 5th, in terms of arranging to meet with these 
interested people, is not farr off, I would appreciate it 
if you could announce it in your newsletter and to your 
local members at your earliest opportunity so that I may 
receive some indication of response volume in time to at¬ 
tempt to make appropriate arrangements for a meeting at 
or during the Philidelphia show week end. 

All persons replying should indicate whether or not they.are 
agreeable to being put on a mailing list which will be dis¬ 
tributed to all those who wish to participate and send a 
#10 SASE. Those persons who are not planning to attend 
'P. C. 79' but wish to participate can receive information 
regarding developments, it any, that result from this en¬ 
deavor by sending a #10 SASE. Responses and inquiries 
which do not indicate specific whishes to be left off the 
mailing lists will be included. 

In the event your next issue will be to late to permit mail 
response I can be reached by phone between 9 0° and 11 A.M. 
or during the same hour in the evening. I will also leave 
information regarding contacting me or any meeting arrange¬ 
ments with the 'P. C. 79' information service which I will 
check with periodically during the show. Direct and immedi- 
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iate responses are desireable regarding any meeting efforts 
so that arrangements can he made if possible. 

If you're interested in receiving news of these efforts as 
they progress, if they progress, let me know and I will try 
to keep you informed along with or in advance of those who 
choose to participate. 

Your assistance, if you can give it, will be greatly appre¬ 
ciated, and may be an additional benefit to both the micro¬ 
computer and the health care industries. 

In an effort to reach as many interested parties as possible, 
I'm sending this letter to several microcomputer newsletter 
publishers (though I'm sure I won't reach all of them), and 
I have made similar requests to some of the microcomputer 
magazines. I make make similar requests of some of the health 
care journals, although I haven't made a decision about that 
yet. In any event, people can reach me at P 0 Box 13089» 
Columbus OH 43213, or by telephone at (6l4) 235-7212. 


ROUTINE TO FIND WHETHER Q OF N+l WORDS, W$(M) [for M=0 to nJ 

OCCUR IN A STRING Z$ 

by R Turvey 

Which words are found is recorded in the array P(M) corres¬ 
ponding to W$(M) 

Initialize with zeros: 

2000 FOR M=0 TO N 

2010 P(M)=0 

2020 NEXT : Z=0 : M=0 

Determine number of passes by length of string, number of 
loops by number of words: 

2030 FOR J=1 TO LEN(Z$) 

2040 FOR M=0 TO N 

Skip for words already found: 

2050 IF P(M)> 0 THEN 2140 

On first pass, skip preceding blank test, otherwise do it 
2060 IF J=1 THEN 2080 

2070 IF NOT MID$(Z$, J-l,l)=" " THEN 2140 
Search for the word: 

2080 IF NOT W$(M)=MID$(Z$, J,LEN(W$(M.)) THEN 2140 
On last pass, skip succeeding character test: 

2090 IF J=LEN(Z$)-LEN(W$(M))+1 THEN 2150 
Do test for succeeding character, a blank, a comma, etc. 
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2100 A$=MID$(Z$,J+LEN(W$(M)), 1) 

2110 IP A$=" " OR A$=""’ THEN 2150 
2120 IF A$="," OR AB=";" THEN 2150 
2130 IP A$="." OR A$="s" THEN 2150 
2140 NEXT M : GOTO 2160 

Register finding a words 

2150 P(M)=1 : Z=Z+1 : IF Z>Q THEN RETURN 
2160 NEXT J 

and, if this is used as a subroutine, line 2170 RETURN is 
added at this point. 


An international group of professionals offering ready-to- 
use software for beginers, professional or schools to allow 
you to operate your own SPACE CENTRE and SATELLITE TRACKING 
SITE. The package includes cassette tape, information on 
how to obtain and use orbital parameters available from 
NASA, and complete operating instructions. Programs avai¬ 
lable are in BASIC. FORTRAN is available on request. 

STI-ll-E Generates satalite RA/DEC or LAT/L0NG/HT for any 
time. $12.95 

STI-21-L Generates azimuth/elevation/time for visual sight¬ 
ing. $15-95 

STI- 30 -A Updates current satalite parameters from obser¬ 
vation time for future calculations. $ 12.95 
STI-900 All three on one medium. $29*95 

For information write to Sat Trak International, C/0 
Compuland of Colorado Springs, 4543 Templeton Gap Road, 
Colorado Springs, CO, 80909° 


I would like to subscribe to the SOURCE. I understand that 
I will receive all the back issues of this volume as well as 
all the remaining issues, for a total of ten issues. Payment 
of $15* is enclosed (or charge my MC/YISA card). No billing! 

NAME_Credit card #_ 

ADDRESS _Expiration date_ 

CITY, STATE, ZIP __IB# (MC)_ 

If outside USA, add $10 for air-mail postage if desired. 

Mail this form, with payment, to ARESC0, INC., Box 1142, Co¬ 
lumbia MD 21044. Back issues sent UPS, please give street 
address rather than post office box number for quick service. 
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